﻿Imports BUS
Imports DTO
Public Class frmLogOn
    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub


    Private m_TenDangNhap As CNhanVienDTO
    Public Property TenDangNhap() As CNhanVienDTO
        Get
            Return m_TenDangNhap
        End Get
        Set(ByVal value As CNhanVienDTO)
            m_TenDangNhap = value
        End Set
    End Property


    Private Sub btnDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDangNhap.Click
        If txtTenDangNhap.Text = "" Then
            MessageBox.Show("Tên đăng nhập không hợp lệ")
            Return
        End If

        If txtMatKhau.Text = "" Then
            MessageBox.Show("Mật khẩu không hợp lệ")
            Return
        End If
        Dim nv As CNhanVienDTO = New CNhanVienBUS().LayThongTinNhanVienKhiBietMa(txtTenDangNhap.Text, txtMatKhau.Text)
        If nv Is Nothing Then
            MessageBox.Show("Tên đăng nhập hoặc mật khẩu không hợp lệ")
            Return
        End If
        m_TenDangNhap = nv
        DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
End Class